Cine Live 69/Cine Live 69.iso/pc/Data/Interface/allocine.k

Text File | 2002-10-02 | 4.9 KB | 182 lines

module oRoot1 is cBox
with
    Flags is $00000152;
    release Editor:
        IOWindow is {$000001B8,$000000C0,$0000023F,$000002CD,$00000000,$00000000,$00000000,$00000000};
        LayoutWindow is {$000000DF,$00000156,$00000384,$000002EE,$0000002A,$00000043,$00000064,$00000000};
    end;
    Name is "Root";
    Enabled is false;

    Width is 800; Height is 600;


    Elements is [
        oMusic2,
        oPUBALLO3,
        oBouton_sommaire4,
        oInternet6,
        oInternet9,
        oInternet7
    ];
    Events is [
        cOnscreenEvent
        with Flags is $00000004;
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Rewind is true; end
            ];
        end,
        cKeyboardEvent
        with Test is IsSpace;
            Commands is [
                cRunCommand
                with Flags is $00000004; Mode is Toggle; end
            ];
        end,
        cKeyboardEvent
        with Value is "+";
            Commands is [
                cSetVolumeCommand
                with Mode is ExecuteHigher; end
            ];
        end,
        cKeyboardEvent
        with Value is "-";
            Commands is [
                cSetVolumeCommand
                with Flags is $00000004; Mode is ExecuteLower; end
            ];
        end,
        cKeyboardEvent
        with Value is "m";
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Mode is Toggle; Rewind is true; end
            ];
        end
    ];
end;

object oMusic2 is cSound
with
    Name is "Music";

    AdjustX is AlignToCenter; AdjustY is AlignToMiddle;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;
    Looping is true;
    URL is "data/Sons/4.mp3"; URLOption is GetDiskURL;

end;

object oPUBALLO3 is cImage
with
    Flags is $00000400;
    Name is "PUBALLO";
    Enabled is false;
    AdjustX is AlignToCenter; AdjustY is AlignToMiddle;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "data/Images/PUBALLO.JPG"; URLOption is GetDiskURL;


end;

object oBouton_sommaire4 is cImage
with
    Flags is $00000400;
    Name is "Bouton sommaire";
    Shown is false; Cursor is oFingerCursor;
    X is 629; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "data/Images/vid%20sommaire.jpg"; URLOption is GetDiskURL;


    Events is [
        cMouseEnterEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with
            Commands is [
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with
            Commands is [
                cBackCommand
                with end
            ];
        end
    ];
end;

object oInternet6 is cBox
with
    Flags is $00008151;
    Name is "Internet";
    Region is {$FFFF0064,$00010000,$00800210,$00010000,$00867FFF,$00020086,$018D7FFF,$0003018D,$02107FFF,$003C0000,$00017FFF,$0043020F,$02107FFF,$00790001,$00367FFF,$007A0036,$009F7FFF,$007B009F,$01087FFF,$007D0108,$01727FFF,$007F0172,$01DB7FFF,$008001DB,$020F7FFF,$7FFF0000};
    Shown is false; Cursor is oEarthCursor;
    X is 133; Y is 128;
    Width is 534; Height is 130;


    Events is [
        cMouseUpEvent
        with Flags is $00004004; Flag is true;
            Commands is [
                cLaunchCommand
                with Flags is $00004004; URL is "http://www.allocine.fr"; URLOption is GetSiteURL; Mode is ExecuteBrowser; end
            ];
        end
    ];
end;

object oInternet9 is cBox
with
    Flags is $00000150;
    Name is "Internet";
    Region is {$FFFF015C,$000B0000,$007F0098,$000B008C,$00917FFF,$000C0080,$008C7FFF,$000D0074,$00807FFF,$000E0068,$00747FFF,$000F005C,$00680091,$00927FFF,$00100050,$005C7FFF,$00110043,$00507FFF,$00120037,$00437FFF,$0013002B,$00377FFF,$0014001F,$002B7FFF,$00150013,$001F7FFF,$00160007,$00137FFF,$00170000,$00077FFF,$00180092,$00937FFF,$001B0000,$00017FFF,$00210093,$00947FFF,$00270001,$00027FFF,$002A0094,$00957FFF,$00320002,$00037FFF,$00340095,$00967FFF,$003D0096,$00977FFF,$003E0003,$00047FFF,$00460097,$00987FFF,$004A0004,$00057FFF,$00550005,$00067FFF,$00610006,$00077FFF,$006D0007,$00087FFF,$0072008D,$00987FFF,$00730083,$008D7FFF,$00740078,$00837FFF,$0075006E,$00787FFF,$00760063,$006E7FFF,$00770059,$00637FFF,$00780008,$0009004E,$00597FFF,$00790044,$004E7FFF,$007A0039,$00447FFF,$007B002F,$00397FFF,$007C0024,$002F7FFF,$007D001A,$00247FFF,$007E000F,$001A7FFF,$007F0009,$000F7FFF,$7FFF0000};
    Shown is false; Cursor is oEarthCursor;
    X is 316; Y is 266;
    Width is 152; Height is 128;


    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cLaunchCommand
                with Flags is $00000004; URL is "http://www.allocine.fr"; URLOption is GetSiteURL; Mode is ExecuteBrowser; end
            ];
        end
    ];
end;

object oInternet7 is cBox
with
    Flags is $00000150;
    Name is "Internet";
    Region is {$FFFF0044,$00000000,$001F0091,$00000026,$00907FFF,$00010000,$00267FFF,$00070000,$00017FFF,$000E0090,$00917FFF,$00160001,$00027FFF,$001E0002,$004A7FFF,$001F004A,$00917FFF,$7FFF0000};
    Shown is false; Cursor is oEarthCursor;
    X is 522; Y is 459;
    Width is 147; Height is 32;


    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cLaunchCommand
                with Flags is $00000004; URL is "http://www.allocine.fr"; URLOption is GetSiteURL; Mode is ExecuteBrowser; end
            ];
        end
    ];
end;